object BkFatRsizForm: TBkFatRsizForm Left = 17 Top = 11 BorderStyle = bsDialog Caption = 'Eski Sat�� Faturalar� ve Fatura Se�imi' ClientHeight = 409 ClientWidth = 600 Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] KeyPreview = True OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 16 object Panel1: TPanel Left = 0 Top = 0 Width = 600 Height = 409 HelpContext = 112 Align = alClient BevelInner = bvLowered BevelWidth = 2 BorderWidth = 1 Color = clBlack Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 0 object DBGridFatBak: TDBGrid Left = 5 Top = 30 Width = 590 Height = 188 Align = alTop Color = clNavy DataSource = QBRFATSRC FixedColor = clSilver Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False ReadOnly = True TabOrder = 1 TitleFont.Color = clBlue TitleFont.Height = -11 TitleFont.Name = 'Arial Tur' TitleFont.Style = [fsBold] OnDblClick = BitBtnFSECClick end object DBGrid2: TDBGrid Left = 5 Top = 243 Width = 590 Height = 115 Align = alTop Color = clGray DataSource = SatBrSRC Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial Tur' Font.Style = [fsBold] Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit] ParentFont = False ReadOnly = True TabOrder = 3 TitleFont.Color = clNavy TitleFont.Height = -11 TitleFont.Name = 'Arial Tur' TitleFont.Style = [fsBold] end object BitBtnFSEC: TBitBtn Left = 339 Top = 372 Width = 113 Height = 27 Caption = '&Fatura Se�' Default = True Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ModalResult = 1 ParentFont = False TabOrder = 6 OnClick = BitBtnFSECClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000 0000333377777777777733330FFFFFFFFFF033337F3FFF3F3FF733330F000F0F 00F033337F777373773733330FFFFFFFFFF033337F3FF3FF3FF733330F00F00F 00F033337F773773773733330FFFFFFFFFF033337FF3333FF3F7333300FFFF00 F0F03333773FF377F7373330FB00F0F0FFF0333733773737F3F7330FB0BF0FB0 F0F0337337337337373730FBFBF0FB0FFFF037F333373373333730BFBF0FB0FF FFF037F3337337333FF700FBFBFB0FFF000077F333337FF37777E0BFBFB000FF 0FF077FF3337773F7F37EE0BFB0BFB0F0F03777FF3733F737F73EEE0BFBF00FF 00337777FFFF77FF7733EEEE00000000033377777777777773330000} NumGlyphs = 2 end object BitBtnIPT: TBitBtn Left = 467 Top = 371 Width = 113 Height = 27 Cancel = True Caption = '&Vazge�' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ModalResult = 2 ParentFont = False TabOrder = 7 OnClick = BitBtnIPTClick Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333333333333333333FFF33FF333FFF339993370733 999333777FF37FF377733339993000399933333777F777F77733333399970799 93333333777F7377733333333999399933333333377737773333333333990993 3333333333737F73333333333331013333333333333777FF3333333333910193 333333333337773FF3333333399000993333333337377737FF33333399900099 93333333773777377FF333399930003999333337773777F777FF339993370733 9993337773337333777333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object Panel2: TPanel Left = 5 Top = 5 Width = 590 Height = 25 Align = alTop BevelInner = bvLowered BevelWidth = 2 Caption = 'FATURALAR' Color = clRed Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 0 object LabelSIRA: TLabel Left = 352 Top = 5 Width = 186 Height = 14 Caption = '(Fatura Tarihine G�re S�ral� Liste)' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end end object Panel3: TPanel Left = 5 Top = 218 Width = 590 Height = 25 Align = alTop BevelInner = bvLowered BevelWidth = 2 Caption = 'FATURA ��ER�KLER�' Color = clPurple Font.Color = clWhite Font.Height = -12 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object BtnSIRDEG: TBitBtn Left = 197 Top = 372 Width = 123 Height = 27 HelpContext = 113 Caption = 'S�rala&ma De�i�' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = BtnSIRDEGClick Glyph.Data = { E6000000424DE60000000000000076000000280000000E0000000E0000000100 0400000000007000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 330033333333333333003300000000033300330FFFFFFF033300330F00000F03 3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03 3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333 33003333333333333300} end object BitBtnSIL: TBitBtn Left = 10 Top = 370 Width = 106 Height = 27 Caption = 'Fatura &Sil' Font.Color = clNavy Font.Height = -12 Font.Name = 'Arial Tur' Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = BitBtnSILClick Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550 305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000 005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0 B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0 B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000 B0557777FF577777F7F500000E055550805577777F7555575755500000555555 05555777775555557F55550005555555055555777555555575550000} NumGlyphs = 2 Spacing = 7 end end object GroupBoxSIR: TGroupBox Left = 194 Top = 218 Width = 193 Height = 150 Caption = 'SIRALAMA DE���T�R' Color = clRed Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False TabOrder = 1 Visible = False object RadioGrpSIRA: TRadioGroup Left = 12 Top = 16 Width = 153 Height = 93 Caption = 'S�ralama Kriteri' Color = clSilver Font.Color = clBlack Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ItemIndex = 0 Items.Strings = ( 'Koda G�re' 'Ada G�re' 'FaturaTarihine G�re' 'Fatura No'#39'ya G�re' 'Net Toplama G�re') ParentColor = False ParentFont = False TabOrder = 0 end object BtnTAMSIR: TBitBtn Left = 6 Top = 116 Width = 83 Height = 25 Caption = '&Tamam' Default = True Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnClick = BtnTAMSIRClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333330000333333333333333333333333F33333333333 00003333344333333333333333377F3333333333000033334224333333333333 337337F3333333330000333422224333333333333733337F3333333300003342 222224333333333373333337F3333333000034222A22224333333337F337F333 7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224 33333337F73337F337F33333000033A33333A222433333337333337F337F3333 0000333333333A222433333333333337F337F33300003333333333A222433333 333333337F337F33000033333333333A222433333333333337F337F300003333 33333333A222433333333333337F337F00003333333333333A22433333333333 3337F37F000033333333333333A223333333333333337F730000333333333333 333A333333333333333337330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end object BtnVAZSIR: TBitBtn Left = 107 Top = 116 Width = 78 Height = 25 Cancel = True Caption = '&Vazge�' Font.Color = clNavy Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = BtnVAZSIRClick Glyph.Data = { DE010000424DDE01000000000000760000002800000024000000120000000100 0400000000006801000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333333333000033337733333333333333333F333333333333 0000333911733333973333333377F333333F3333000033391117333911733333 37F37F333F77F33300003339111173911117333337F337F3F7337F3300003333 911117111117333337F3337F733337F3000033333911111111733333337F3337 3333F7330000333333911111173333333337F333333F73330000333333311111 7333333333337F3333373333000033333339111173333333333337F333733333 00003333339111117333333333333733337F3333000033333911171117333333 33337333337F333300003333911173911173333333373337F337F33300003333 9117333911173333337F33737F337F33000033333913333391113333337FF733 37F337F300003333333333333919333333377333337FFF730000333333333333 3333333333333333333777330000333333333333333333333333333333333333 0000} NumGlyphs = 2 end end object QueryBRFAT: TQuery DatabaseName = 'ECZ' SQL.Strings = ( 'SELECT *FROM' 'FATURA' 'WHERE RCTOPSAYISI IS NULL' 'ORDER BY FATARIH') Left = 248 Top = 96 object QueryBRFATFATURANO: TStringField DisplayLabel = 'FATURA NO' DisplayWidth = 15 FieldName = 'FATURANO' Size = 15 end object QueryBRFATSATISNO: TFloatField FieldName = 'SATISNO' Visible = False end object QueryBRFATKRMKOD: TStringField DisplayLabel = 'Kodu' DisplayWidth = 11 FieldName = 'KRMKOD' Size = 11 end object QueryBRFATKRMAD: TStringField DisplayLabel = 'Ad�' DisplayWidth = 24 FieldName = 'KRMAD' Size = 36 end object QueryBRFATFATARIH: TDateField DisplayLabel = 'Fat.Trh' DisplayWidth = 8 FieldName = 'FATARIH' DisplayFormat = 'dd/mm/yy' end object QueryBRFATRCTOPSAYISI: TIntegerField DisplayLabel = 'Top.Re�.' DisplayWidth = 8 FieldName = 'RCTOPSAYISI' Visible = False end object QueryBRFATBRUT: TCurrencyField DisplayLabel = 'Br�t ' DisplayWidth = 15 FieldName = 'BRUT' end object QueryBRFATNET: TCurrencyField DisplayLabel = 'NET TOPLAM' DisplayWidth = 15 FieldName = 'NET' end end object QBRFATSRC: TDataSource DataSet = QueryBRFAT Left = 280 Top = 96 end object SatBrTab: TTable BeforeDelete = SatBrTabBeforeDelete OnCalcFields = SatBrTabCalcFields DatabaseName = 'ECZ' IndexFieldNames = 'SATISNO' MasterFields = 'SATISNO' MasterSource = QBRFATSRC TableName = 'SATIS.DB' Left = 544 Top = 216 object SatBrTabSATISNO: TFloatField FieldName = 'SATISNO' Visible = False end object SatBrTabSIRANOURUN: TIntegerField DisplayLabel = 'S�ra No' DisplayWidth = 6 FieldName = 'SIRANOURUN' end object SatBrTabILACNO: TIntegerField Alignment = taLeftJustify DisplayLabel = '�r�n Ad�' DisplayWidth = 36 FieldName = 'ILACNO' OnGetText = SatBrTabILACNOGetText end object SatBrTabFIYAT: TCurrencyField DisplayLabel = 'Fiyat�' DisplayWidth = 13 FieldName = 'FIYAT' end object SatBrTabMIKTAR: TIntegerField DisplayLabel = 'Miktar' DisplayWidth = 6 FieldName = 'MIKTAR' end object SatBrTabTUTARI: TCurrencyField Calculated = True DisplayWidth = 15 FieldName = 'TUTARI' end object SatBrTabSATARIH: TDateTimeField DisplayLabel = 'Sat�� Trh.' DisplayWidth = 12 FieldName = 'SATARIH' DisplayFormat = 'dd/mm/yy-hh:nn' end object SatBrTabPARAKENDE: TStringField FieldName = 'PARAKENDE' Visible = False Size = 1 end end object SatBrSRC: TDataSource DataSet = SatBrTab Left = 512 Top = 216 end object urunOku: TTable DatabaseName = 'ECZ' IndexFieldNames = 'ILACNO' TableName = 'URUN.DB' Left = 88 Top = 224 object urunOkuILACNO: TIntegerField FieldName = 'ILACNO' end object urunOkuILACAD: TStringField FieldName = 'ILACAD' Required = True Size = 36 end object urunOkuMIKTAR: TIntegerField FieldName = 'MIKTAR' end end object DeleteQuery: TQuery DatabaseName = 'ECZ' Params.Data = {010001000853494C5341544E4F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM FATURA' 'WHERE SATISNO=:SILSATNO') Left = 160 Top = 376 end object QhrkUYARI: TQuery DatabaseName = 'ECZ' Params.Data = {01000100055541734E6F0006080000000000000000000000} SQL.Strings = ( 'SELECT ' 'HAREKET.CARIKOD,' 'HAREKET.BORC' 'FROM HAREKET' 'WHERE (ALSATNO=:UAsNo) AND (ALSAT='#39'S'#39') AND' '(NIHAI<>1)') Left = 104 Top = 376 object QhrkUYARICARIKOD: TStringField FieldName = 'CARIKOD' Size = 11 end object QhrkUYARIBORC: TCurrencyField FieldName = 'BORC' end end object QRECSIL: TQuery DatabaseName = 'ECZ' Params.Data = {0100010006525361744E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM RECETE' 'WHERE SATISNO=:RSatNo') Left = 136 Top = 376 end object QHastaBul: TQuery DatabaseName = 'ECZ' Params.Data = {01000100056873744E6F00030400000000000000} SQL.Strings = ( 'SELECT ' 'HASTA.HASTADI,' 'HASTA.HASTASOYAD' 'FROM HASTA' 'WHERE HASTANO=:hstNo') Left = 56 Top = 272 object QHastaBulHASTADI: TStringField FieldName = 'HASTADI' Size = 18 end object QHastaBulHASTASOYAD: TStringField FieldName = 'HASTASOYAD' Size = 18 end end object KrmBorcSil: TTable DatabaseName = 'ECZ' TableName = 'KRMLAR.DB' Left = 88 Top = 272 object KrmBorcSilKOD: TStringField FieldName = 'KOD' Required = True Size = 11 end object KrmBorcSilBORC: TCurrencyField FieldName = 'BORC' end end object hastaBulT: TTable DatabaseName = 'ECZ' TableName = 'HASTA.DB' Left = 128 Top = 272 object hastaBulTHASTANO: TIntegerField FieldName = 'HASTANO' end object hastaBulTBORC: TCurrencyField FieldName = 'BORC' end end object UrunHrkSTab: TTable DatabaseName = 'ECZ' IndexFieldNames = 'ILACNO;GCTARIH;ALSATNO;SIRANO' MasterFields = 'ILACNO;SATARIH;SATISNO;SIRANOURUN' MasterSource = SatBrSRC TableName = 'URUNHRK.DB' Left = 184 Top = 384 object UrunHrkSTabGCTARIH: TDateTimeField DisplayWidth = 15 FieldName = 'GCTARIH' end object UrunHrkSTabILACNO: TIntegerField DisplayWidth = 10 FieldName = 'ILACNO' end object UrunHrkSTabALSATNO: TFloatField DisplayWidth = 10 FieldName = 'ALSATNO' end object UrunHrkSTabCIKMIK: TIntegerField DisplayWidth = 10 FieldName = 'CIKMIK' end object UrunHrkSTabSIRANO: TIntegerField DisplayWidth = 10 FieldName = 'SIRANO' end end object QSATSIL: TQuery DatabaseName = 'ECZ' Params.Data = {010001000753617469734E6F0006080000000000000000000000} SQL.Strings = ( 'DELETE FROM SATIS' 'WHERE SATISNO=:SatisNo') Left = 328 Top = 384 end object prosesTab: TTable DatabaseName = 'ECZ' TableName = 'PROSES.DB' Left = 16 Top = 336 object prosesTabTARIH: TDateTimeField FieldName = 'TARIH' end object prosesTabACIKLA: TStringField FieldName = 'ACIKLA' Size = 36 end object prosesTabISLETNO: TFloatField FieldName = 'ISLETNO' end object prosesTabMIKTAR: TIntegerField FieldName = 'MIKTAR' end object prosesTabFIYAT: TCurrencyField FieldName = 'FIYAT' end object prosesTabTUTAR: TCurrencyField FieldName = 'TUTAR' end object prosesTabISLETIPI: TStringField FieldName = 'ISLETIPI' Size = 15 end end object UserAbc: TTable DatabaseName = 'ECZ' TableName = 'usera.db' Left = 48 Top = 337 object UserAbcKULLANICI: TStringField FieldName = 'KULLANICI' Size = 25 end object UserAbcURUNKARTI: TStringField FieldName = 'URUNKARTI' Size = 1 end end end